(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     40330,       1035]
NotebookOptionsPosition[     29104,        803]
NotebookOutlinePosition[     29833,        828]
CellTagsIndexPosition[     29754,        823]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"53ca56bd-e9b6-4b1c-ba98-3e722c208cae"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"3843dd52-641c-4df2-b3ee-3360b93c067b"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"288d4ee9-21da-4cb1-a6b8-0823b1e421aa"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"4f40aad2-bdcc-491e-99b9-0754ce0472e5"]
}], "History",
 CellChangeTimes->{{3.8183350737407875`*^9, 3.8183350739302835`*^9}},
 CellID->1247902091,ExpressionUUID->"240b2cb8-2dd9-4781-9475-18fbd99f55bd"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"1e01df07-906b-4b9a-a76c-dab20d15b3a5"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"7929f775-25de-4c24-8193-044bf1e0d3b2"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->435601598,ExpressionUUID->"76eb7728-fe4d-4226-8798-af57473da780"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->242720263,ExpressionUUID->"df26d8cb-2eba-45f9-9ec4-617ea73b7556"],

Cell["RefpropLink/ref/limits", "Categorization",
 CellLabel->"URI",
 CellID->841853789,ExpressionUUID->"271440e1-c5d1-47c8-978c-488f492db42b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"d567fb64-4e5a-4574-90cc-4e6c8fd3fbd9"],

Cell["limits, bounds, range of validity", "Keywords",
 CellChangeTimes->{{3.8183351013220396`*^9, 3.8183351098023643`*^9}},
 CellID->1164421360,ExpressionUUID->"24336e53-15be-419c-98b2-75872246aaad"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"22ac84c7-30a2-4275-9abd-d5521ccdc841"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"ca0797b1-8277-4091-8b37-b3592d7c8eb0"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"76646f1e-473f-4db0-8441-f8b487f69f02"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"96e520c2-07c4-4d8d-85c6-0aa52f1128a1"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"affc7e96-896c-4eb4-9e3c-b92cb8ad65b9"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"7578dcaa-c0de-4ca3-80b0-f03a73fab2c0"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"5da2d335-1eea-4348-a557-2770924ec21c"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"4d57d96f-d583-4736-84ab-4982cd89b9fa"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"f26f292c-07eb-4b9d-8088-5625e9a394a7"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"793cdd3d-3931-4532-9896-d0a2bbfe356c"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"b526eddd-c62b-4b99-869d-83a485ccc880"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"d1bff1e2-ed50-40b0-a3c3-17b282419c20"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"644770f1-6722-47f3-ba13-a250311dbf57"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"b4bb5b26-8d12-48d6-a5f0-abcfab532eb7"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"e26256e4-6bfb-472e-9993-e437718c0d67"]
}, Closed]],

Cell[CellGroupData[{

Cell["limits", "ObjectName",
 CellID->1224892054,ExpressionUUID->"48da58cb-4b6a-43bf-90a1-ba666d358428"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"12ec7892-a942-4efe-affc-8bc9f851fefb"],
 Cell[BoxData[
  RowBox[{"limits", "[", 
   RowBox[{
    StyleBox["htype", "TI"], ",", " ", 
    StyleBox["z", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "574dd008-f126-4e22-88bc-558fc66a1e15"],
 "\[LineSeparator]provides the temperature, density, and pressure ",
 Cell[BoxData[
  ButtonBox["limits",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/limits"]], "InlineFormula",
  ExpressionUUID->"a5ae9ebf-7d1f-46be-beb7-a0112d2eeb01"],
 " of the loaded equations. \n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "a4161214-3d6d-46eb-9b3b-e6704c5e73d0"],
 Cell[BoxData[
  RowBox[{"limits", "[", 
   StyleBox["z", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "9ee958fa-fc4a-405a-90d1-655e3652e403"],
 "\[LineSeparator]The equation set parameter, ",
 Cell[BoxData[
  StyleBox["htype", "TI"]], "InlineFormula",ExpressionUUID->
  "c0d11495-c37c-4021-896f-4289b567fb69"],
 ", can be omitted and will default to the Equation of State, \"EOS\" \
equation set.\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "67505035-7ea1-4cea-a05d-0ca49423a1c6"],
 Cell[BoxData[
  RowBox[{"limits", "[", "]"}]], "InlineFormula",ExpressionUUID->
  "aa865c19-847f-42e2-a688-b2650b13c64e"],
 "\[LineSeparator]Omitting both parameters will return limits on the Equation \
of State for a ",
 StyleBox["pure fluid",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", with ",
 Cell[BoxData[
  StyleBox["htype", "TI"]], "InlineFormula",ExpressionUUID->
  "80125ce1-9890-491c-a263-0891a76e541b"],
 " defaulting to \"EOS\" and ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "33131ba0-2dad-4bda-bf0c-397e241908f6"],
 " defaulting to {1.0}."
}], "Usage",
 CellChangeTimes->{
  3.8180012699085207`*^9, {3.818249784543673*^9, 3.8182498006536007`*^9}, {
   3.8182500531474543`*^9, 
   3.8182503458353252`*^9}},ExpressionUUID->"71fce5a9-b2fd-4ead-b1fc-\
746ff1c7e172"],

Cell[TextData[{
 Cell[BoxData[
 "limits"], "InlineFormula",ExpressionUUID->
  "ebad489d-8917-41ac-98c8-4ef69d5ab41f"],
 " provides the temperature, density, and pressure limits of the loaded fluid \
equations."
}], "Notes",
 CellChangeTimes->{{3.818249371692599*^9, 3.818249394163514*^9}, 
   3.8182500127564535`*^9},
 CellID->1067943069,ExpressionUUID->"0ef85a54-38b9-4392-8f6a-416b5655fa61"],

Cell[TextData[{
 "For ",
 StyleBox["pure fluids",
  FontSlant->"Italic"],
 ", the limits are set by the fluids file loaded in ",
 Cell[BoxData[
  StyleBox["setup", "TI"]], "InlineFormula",ExpressionUUID->
  "9ae8ff05-5f56-4414-b162-f496f3a29c33"],
 "."
}], "Notes",
 CellChangeTimes->{{3.818251182078664*^9, 3.818251211788224*^9}, 
   3.8182516422620964`*^9},
 CellID->91263990,ExpressionUUID->"edfcd756-3696-45f9-a737-0e38a5f0221c"],

Cell[TextData[{
 "For ",
 StyleBox["mixtures",
  FontSlant->"Italic"],
 ", a simple mole fraction weighting in reduced variables is used."
}], "Notes",
 CellChangeTimes->{{3.8182516007570157`*^9, 3.818251625843997*^9}},
 CellID->270847270,ExpressionUUID->"85cd83ee-e8cf-4170-b9e8-679e161d2467"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["htype", "TI"]], "InlineFormula",ExpressionUUID->
  "4b64862e-f780-4895-8758-faa369ebec7d"],
 " (optional; default = \"EOS\") specifies the equation set for which to \
return limit values.  The valid options are: "
}], "Notes",
 CellChangeTimes->{{3.818249407821992*^9, 3.8182494888363667`*^9}, {
  3.8182498223196645`*^9, 3.8182498508354216`*^9}},
 CellID->586636576,ExpressionUUID->"343c69ea-a908-4601-8f4c-3f95fe226808"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "413cab4c-17ac-4a98-ae53-7035dbd09f2a"], Cell[
    "\"EOS\"", "TableText",ExpressionUUID->
     "a1ae9b9c-e231-4384-ab81-e4a7cc35fb87"], Cell[
    "Equation of State (default)", "TableText",ExpressionUUID->
     "550715de-ed8e-4213-a0e1-245393a36ef4"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "354983f9-bceb-4b7e-8075-d42de5a3496d"], Cell[
    "\"ETA\"", "TableText",ExpressionUUID->
     "61b02c96-ee53-4118-8f12-a5893a7aeabb"], Cell[
    "Viscosity Equation", "TableText",ExpressionUUID->
     "4cf4276b-f969-4bcf-8645-bdc3d3d8d04f"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "2c18b7f8-407e-44ec-b695-d63ede702c0d"], Cell[
    "\"TCX\"", "TableText",ExpressionUUID->
     "8981ec5f-0f21-4c6a-b1c3-5b11f4f517c6"], Cell[
    "Thermal Conductivity Equation", "TableText",ExpressionUUID->
     "05a8f65e-1ccc-48ec-9847-70c74bbc90f6"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b9e9ff0b-6d4a-43e4-bca9-f464852b51df"], Cell[
    "\"STN\"", "TableText",ExpressionUUID->
     "fcd4a2d2-4563-419d-837a-a974fa2c4cdd"], Cell[
    "Surface Tension Equation", "TableText",ExpressionUUID->
     "21dd31fb-7f56-43ea-8b7a-6486f3003cd2"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.818249881004746*^9, 3.8182499919720297`*^9}},
 CellID->12018028,ExpressionUUID->"bf11c036-8211-4b3f-a5f9-6e1c615fd8f3"],

Cell[TextData[{
 "The molar composition, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "00db5cf0-5de4-478d-9a5f-1d08f769f580"],
 ", should be provided as a real list for mixtures, but can be omitted for \
pure fluids (",
 StyleBox["default",
  FontSlant->"Italic"],
 " = { ",
 StyleBox["1.0",
  FontSlant->"Italic"],
 " }, ",
 StyleBox["pure fluid",
  FontSlant->"Italic"],
 ").  "
}], "Notes",
 CellChangeTimes->{{3.8182494986571074`*^9, 3.818249699320552*^9}, {
  3.818250357148091*^9, 3.818250359563617*^9}},
 CellID->146349120,ExpressionUUID->"f5b8168d-db48-473b-a027-6c6c3c6b111c"],

Cell[TextData[{
 Cell[BoxData[
 "limits"], "InlineFormula",ExpressionUUID->
  "c53c62e8-25ad-4e17-986b-ebc4b9e0da66"],
 " will always return multiple fluid/mixture constants in a ruled list.  The \
fluid constants returned are:"
}], "Notes",
 CellChangeTimes->{{3.8182456505743065`*^9, 3.818245700133854*^9}, {
  3.8182459568517838`*^9, 3.8182459597879324`*^9}, {3.818251878666974*^9, 
  3.818251893219062*^9}, {3.8182519250190325`*^9, 3.81825192640333*^9}},
 CellID->415388059,ExpressionUUID->"79a2ce1d-e8fb-47e1-8985-0ed8019018f0"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "94ea3f94-3713-4fe1-b7b8-b0c3d7c47d60"], Cell[
    "Tmin", "TableText",ExpressionUUID->
     "059732b7-5ff0-4d1f-b0ec-40e87a1222d3"], Cell[
    "Minimum Temperature [K}", "TableText",ExpressionUUID->
     "b435e725-b1ee-4991-ae58-b5e1800072ea"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "0f5b3159-292c-4a31-b468-bea3bd147f82"], Cell[
    "Tmax", "TableText",ExpressionUUID->
     "7f11e8a3-ec68-41c3-b71f-134ed66294f6"], Cell[
    "Maximum Temperature [K}", "TableText",ExpressionUUID->
     "0745c08c-1f4e-4d75-b7c5-ce10094011b4"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b466aaab-242f-4d25-ae81-a105dbb960ae"], Cell[
    "Dmax", "TableText",ExpressionUUID->
     "25d71c19-c2e8-4afd-97e7-fd6ce20f6a96"], Cell[
    "Maximum Molar Density [mol/L]", "TableText",ExpressionUUID->
     "a58e4f20-92ed-4d90-9d08-329287b0ae8b"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "1b22fd4d-df12-4f4e-9ac6-4594ea2c57dd"], Cell[
    "Pmax", "TableText",ExpressionUUID->
     "b1747d49-6532-445b-9914-d7c884dc59dd"], Cell[
    "Maximum Pressure [kPa]", "TableText",ExpressionUUID->
     "8b523a47-722e-4a21-8ed6-b143187994bf"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.8182520197567153`*^9, 3.8182520980533533`*^9}},
 CellID->198401964,ExpressionUUID->"cb8d33db-66d7-4261-9d98-d624187c8f70"],

Cell[TextData[{
 StyleBox["NOTE:",
  FontWeight->"Bold"],
 " Attempting calculations below the minimum temperature and/or above the \
maximum density may results in an error.  However, most equations of state \
may be extrapolated to higher Temperatures and Pressures.  Extrapolation to \
the range between ",
 StyleBox["Tmax < T < 1.5*Tmax", "InlineCode"],
 " as well as between ",
 StyleBox["Pmax < P < 2.0*Pmax", "InlineCode"],
 " will usually succeed, resulting in only a warning message.  Temperatures \
and/or pressures outside these extended limits will result in an error."
}], "Notes",
 CellChangeTimes->{{3.8182525082676725`*^9, 3.8182525546436667`*^9}, {
  3.8182526098360877`*^9, 3.8182526753957872`*^9}, {3.8182527220111437`*^9, 
  3.8182528677314997`*^9}, {3.8182529183880725`*^9, 3.818252969483425*^9}},
 CellID->786590218,ExpressionUUID->"bc2bf2d5-66b4-4420-a317-2f67aa2a537f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"e7b8d259-e872-4fda-8765-0d5719dc5123"],

Cell[TextData[ButtonBox["RefpropLink Quantity (Units) Implementation",
 BaseStyle->"Link",
 ButtonData->
  "paclet:RefpropLink/tutorial/RefpropLink Quantity Implementation"]], \
"Tutorials",
 CellChangeTimes->{{3.8183990942839766`*^9, 3.818399121637843*^9}, {
  3.829558527818698*^9, 3.829558529437373*^9}},
 CellID->341631938,ExpressionUUID->"aedfca47-034e-4987-87a8-d0b213fd269f"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->45360446,ExpressionUUID->"79b2ae27-0ccc-4fd4-b023-849fffb1e206"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"8ef7a8d2-b1d7-416d-9c3a-e5cea897543d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"9d512816-f122-4ea1-b42f-c7cc30542715"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"6515b906-311e-45eb-94dd-01aacbf7f704"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"d9bca5b2-0a70-4e65-87c6-4901ac1b982f"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["info",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/info"]], "InlineFormula",
  ExpressionUUID->"028b09ad-9ab7-4fee-8222-769765edc349"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["name",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/name"]], "InlineFormula",
  ExpressionUUID->"f8b22139-02d7-48c7-965f-9896ef7de52f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["longname",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/longname"]], "InlineFormula",
  ExpressionUUID->"318c4643-cef6-4e79-b15e-a87141553527"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["casn",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/casn"]], "InlineFormula",
  ExpressionUUID->"eb1211cd-2edf-44d3-94b8-b6a22091ffa1"]
}], "SeeAlso",
 CellChangeTimes->{{3.818334999481324*^9, 3.818335021009796*^9}},
 CellID->194857521,ExpressionUUID->"9b9b515b-5750-4396-b4a5-66e4b47abb3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"078a4fef-661e-44fe-bc19-50ba726ddf26"],

Cell["XXXX", "SeeAlso",
 CellID->929782353,ExpressionUUID->"d6d930e5-7b88-4de8-afe9-efc4b05a0233"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"0730fc80-d41d-4784-ac64-aba1944a40a1"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"58e97564-d39c-463e-ac36-b9e1b15bfb62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"9e8b7f76-0b18-4560-ba97-53f33234c941"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Pure Fluids", "ExampleSubsection",ExpressionUUID->
   "95872963-b8c5-4877-ab2e-6d0bca99e908"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8182506459891167`*^9, 3.8182506486540194`*^9}},
 CellID->190521901,ExpressionUUID->"ae2fcc2e-f081-4b00-b98f-f6c33771726c"],

Cell["Load RefpropLink, if not already loaded.", "ExampleText",
 CellChangeTimes->{{3.818217052056491*^9, 3.8182170688156786`*^9}},
 CellID->875200381,ExpressionUUID->"57e7f3f4-fe1d-43f7-a295-856709a2feb8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Only", " ", "needed", " ", "once", " ", "in", " ", "each", " ", 
    "notebook"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8182170903999634`*^9, 3.8182171188708363`*^9}, {
  3.8182171820957775`*^9, 3.818217192935795*^9}},
 CellLabel->"In[7]:=",
 CellID->7206729,ExpressionUUID->"93460f2f-51d9-49fb-9c20-d2b4291c32cf"],

Cell["Load a fluid, in this case Water.", "ExampleText",
 CellChangeTimes->{{3.818217210511797*^9, 3.8182172291150527`*^9}},
 CellID->240582482,ExpressionUUID->"b8adc202-2b07-46af-b8a5-0d2800902709"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<Water\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8182172441468587`*^9, 3.818217277007992*^9}},
 CellLabel->"In[8]:=",
 CellID->356889391,ExpressionUUID->"7e2b41f6-ba43-45e4-8eb2-187293f85bbe"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8182173076929483`*^9, 3.818244738968173*^9, 
  3.818250449416747*^9, 3.818253016293259*^9, 3.818253060569892*^9, 
  3.8183348271820345`*^9},
 CellLabel->"Out[8]=",
 CellID->594596885,ExpressionUUID->"d4378fc1-ef38-43b8-9684-dc8c87479f4a"]
}, Open  ]],

Cell[TextData[{
 "Now call limits (without ",
 Cell[BoxData[
  StyleBox["htype", "TI"]], "InlineFormula",ExpressionUUID->
  "2c2615fb-567d-46fa-97c4-cf6c645e4638"],
 " or ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "9f72c39d-03f6-46c6-8893-b109f51efb57"],
 ") to get the limits on the pure fluid EOS. "
}], "ExampleText",
 CellChangeTimes->{{3.818250464452529*^9, 3.81825053240486*^9}, {
  3.818250591912713*^9, 3.8182505997258205`*^9}},
 CellID->415323612,ExpressionUUID->"5c7cf85b-4ae2-40d7-b15c-d00caaaf6ace"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"limits", "[", "]"}]], "Input",
 CellChangeTimes->{{3.8182505574967384`*^9, 3.8182505618760276`*^9}},
 CellLabel->"In[9]:=",
 CellID->119809265,ExpressionUUID->"c0534411-803d-4681-b8c6-5174cf6a0de3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tmin\"\>", "\[Rule]", 
    TemplateBox[{"251.165`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tmax\"\>", "\[Rule]", 
    TemplateBox[{"2000.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dmax\"\>", "\[Rule]", 
    TemplateBox[{"73.96`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pmax\"\>", "\[Rule]", 
    TemplateBox[{"1.`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.818250570143922*^9, 3.818253021180194*^9, 
  3.818253067063533*^9, 3.8183348321607294`*^9},
 CellLabel->"Out[9]=",
 CellID->50311312,ExpressionUUID->"393f92a7-88ac-43dc-9daa-ef3b9437eaeb"]
}, Open  ]],

Cell[TextData[{
 "Add an ",
 Cell[BoxData[
  StyleBox["htype", "TI"]], "InlineFormula",ExpressionUUID->
  "54946008-c780-401f-8534-dc18685809cf"],
 " to get the limits on the other equation sets for the pure fluid."
}], "ExampleText",
 CellChangeTimes->{{3.8182507018049*^9, 3.818250730249812*^9}},
 CellID->371129245,ExpressionUUID->"af9dd0da-4165-4c20-9520-7e614b52369e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"limits", "[", "\"\<TCX\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.818250740360777*^9, 3.81825077605234*^9}},
 CellLabel->"In[11]:=",
 CellID->459170406,ExpressionUUID->"4f36e7c6-fe1e-43ac-9ae8-e29eae70f7ee"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tmin\"\>", "\[Rule]", 
    TemplateBox[{"251.165`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tmax\"\>", "\[Rule]", 
    TemplateBox[{"1350.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dmax\"\>", "\[Rule]", 
    TemplateBox[{"73.96`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pmax\"\>", "\[Rule]", 
    TemplateBox[{"1.`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.818250784215513*^9, 3.81825307302656*^9, 
  3.8183348690600605`*^9},
 CellLabel->"Out[11]=",
 CellID->381626225,ExpressionUUID->"c1d640bc-788d-47ac-8c6d-15855ed54f96"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "cda719a0-b817-47a3-94c7-b562580fe8d5"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->101784919,ExpressionUUID->"625689d2-6f73-40b8-b6dc-cbddf576379b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Mixtures", "ExampleSubsection",ExpressionUUID->
   "a7f2353a-bd4d-4d40-8b5e-f8e60c8cc7f3"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8182508160623684`*^9, 3.81825081705374*^9}},
 CellID->250906594,ExpressionUUID->"137b72d5-d002-48c8-85ed-70e78a790b6d"],

Cell["Load a mixture with four fluid components:", "ExampleText",
 CellChangeTimes->{{3.8182508656368003`*^9, 3.8182508743165913`*^9}},
 CellID->250021553,ExpressionUUID->"c0605be0-7e6b-435a-8ab3-123117192fcc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Oxygen\>\"", ",", "\"\<Nitrogen\>\"", ",", "\"\<Argon\>\"", ",", 
     "\"\<CO2\>\""}], "}"}], "]"}]}]], "Input",
 CellLabel->"In[4]:=",
 CellID->11237923,ExpressionUUID->"8bf8aab7-4ff5-4e9e-95f7-8766ffab1ecc"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8182508913600187`*^9, 3.818253080132559*^9},
 CellLabel->"Out[4]=",
 CellID->57111371,ExpressionUUID->"b8d6c0d2-9240-445a-a945-7e3a56081e88"]
}, Open  ]],

Cell["Specify a mixture mole fraction:", "ExampleText",
 CellChangeTimes->{{3.818250919588538*^9, 3.8182509405644507`*^9}},
 CellID->234835807,ExpressionUUID->"135017a5-679b-4732-8239-249b2aa0878f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"{", 
    RowBox[{"0.20948", ",", "0.78084", ",", "0.00934", ",", "0.00034"}], 
    "}"}]}], ";", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"mole", " ", "fractions"}], "*)"}]}]], "Input",
 CellLabel->"In[5]:=",
 CellID->246732926,ExpressionUUID->"09810436-92d6-42af-a901-cae0c351502e"],

Cell[TextData[{
 "Evaluate the Equation of State limits (",
 StyleBox["default",
  FontSlant->"Italic"],
 ") for the mixture:"
}], "ExampleText",
 CellChangeTimes->{{3.8182510353729415`*^9, 3.8182510815793905`*^9}},
 CellID->147036401,ExpressionUUID->"618be219-e465-44d3-afd4-16e4fa882661"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"limits", "[", "z", "]"}]], "Input",
 CellChangeTimes->{{3.8182510640811777`*^9, 3.8182510722283936`*^9}},
 CellLabel->"In[6]:=",
 CellID->394172321,ExpressionUUID->"a24dbc3c-bfc0-4458-a09e-7302c13acbe2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tmin\"\>", "\[Rule]", 
    TemplateBox[{"55.742718877162844`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Tmax\"\>", "\[Rule]", 
    TemplateBox[{"1993.6877056779824`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dmax\"\>", "\[Rule]", 
    TemplateBox[{"51.467839755432095`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Pmax\"\>", "\[Rule]", 
    TemplateBox[{
     "1.74463736`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.818251090427729*^9, 3.8182530905387354`*^9},
 CellLabel->"Out[6]=",
 CellID->465121764,ExpressionUUID->"e29f7522-b55a-444a-bb05-204d2c6b9d63"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"18e11e79-aefa-48a8-918a-3977340f2136"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "f07313cb-d532-4a47-87ae-29ca05ed0e54"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"ff2884a9-fc80-4180-99f1-6b744a423048"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "e9d80599-881c-4728-a050-c42fdf8d63bd"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"c2652ce3-5caa-4596-91fe-a9ee65d4bbc6"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "348d3f2f-1874-4224-a42c-e78b432fac29"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"c0499f1b-571c-4fec-8c4f-5ec5e0d62c6e"],

Cell[CellGroupData[{

Cell[BoxData["SuppressUnits"], "ExampleSubsection",
 CellChangeTimes->{{3.818334717531249*^9, 3.818334722530863*^9}},
 CellID->1757724783,ExpressionUUID->"1197f68c-9324-4c1e-889c-2dab6716cf3d"],

Cell[TextData[{
 "By default, fluid limit values will be returned as Quantities (with units). \
 This behavior can be suppressed with the following option as a parameter to ",
 Cell[BoxData[
 "limits"], "InlineFormula",ExpressionUUID->
  "26387155-ab13-4c2b-9307-597f7a771b76"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.818327821693028*^9, 3.818327934813526*^9}, {
  3.81833475809779*^9, 3.8183347807013483`*^9}},
 CellID->55537218,ExpressionUUID->"f7818efe-e36e-4b06-9da0-7ad66f00b127"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"limits", "[", 
  RowBox[{"SuppressUnits", "\[Rule]", "True"}], "]"}]], "Input",
 CellChangeTimes->{{3.818334840461558*^9, 3.818334854203782*^9}},
 CellLabel->"In[10]:=",
 CellID->260934071,ExpressionUUID->"3c1ce251-7b34-4252-b103-6b2b965e488c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tmin [K]\"\>", "\[Rule]", "251.165`"}], ",", 
   RowBox[{"\<\"Tmax [K]\"\>", "\[Rule]", "2000.`"}], ",", 
   RowBox[{"\<\"Dmax [mol/L]\"\>", "\[Rule]", "73.96`"}], ",", 
   RowBox[{"\<\"Pmax [kPa]\"\>", "\[Rule]", "1.`*^6"}]}], "}"}]], "Output",
 CellChangeTimes->{3.818334859005975*^9},
 CellLabel->"Out[10]=",
 CellID->687344947,ExpressionUUID->"f00e1112-242c-4157-9089-0ee4059776f0"]
}, Open  ]],

Cell["\<\
Note that unit \"hints\" are placed in the rule text, but the actual results \
are non-Quantity real values.  Values returned are in the RefProp default \
unit system as indicated by the rule hints.\
\>", "ExampleText",
 CellChangeTimes->{{3.818327986422557*^9, 3.8183280946002736`*^9}},
 CellID->177352046,ExpressionUUID->"412b7ed0-5547-493c-bee0-206bec54fef7"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "4dc5d89a-2eca-4fe2-a9d5-652d4894f26c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"2ba2744d-4038-4d4a-9f30-82371431ef8e"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "9554c39c-0367-43ce-b5e0-7088566b07fe"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"b0ddbade-f8aa-4030-982d-8ade83701c6c"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "fa372f4d-7fd5-4717-b20b-c13baf486142"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"1441314a-25a9-4268-8f06-aa99f378d07c"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "b3626304-3c90-4546-a097-2071d0d9a018"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"6ee9fa8b-91ca-4f7b-bcf9-e5a2b149d242"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "a369247b-e233-4d08-b333-2b9366882dff"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"726b324c-0424-4d39-abae-abfd1b2a8a9f"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{15, Automatic}, {Automatic, 18}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"86709de0-01d9-4b7a-be99-3067b60a38a6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[25009, 691, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"18e11e79-aefa-48a8-918a-3977340f2136",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 29560, 816}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 670, 15, 22, "History",ExpressionUUID->"240b2cb8-2dd9-4781-9475-18fbd99f55bd",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1253, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"1e01df07-906b-4b9a-a76c-dab20d15b3a5",
 CellID->1122911449],
Cell[1379, 42, 134, 2, 31, "Categorization",ExpressionUUID->"7929f775-25de-4c24-8193-044bf1e0d3b2",
 CellID->686433507],
Cell[1516, 46, 147, 2, 31, "Categorization",ExpressionUUID->"76eb7728-fe4d-4226-8798-af57473da780",
 CellID->435601598],
Cell[1666, 50, 136, 2, 31, "Categorization",ExpressionUUID->"df26d8cb-2eba-45f9-9ec4-617ea73b7556",
 CellID->242720263],
Cell[1805, 54, 142, 2, 31, "Categorization",ExpressionUUID->"271440e1-c5d1-47c8-978c-488f492db42b",
 CellID->841853789]
}, Closed]],
Cell[CellGroupData[{
Cell[1984, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"d567fb64-4e5a-4574-90cc-4e6c8fd3fbd9",
 CellID->477174294],
Cell[2097, 64, 199, 2, 17, "Keywords",ExpressionUUID->"24336e53-15be-419c-98b2-75872246aaad",
 CellID->1164421360]
}, Open  ]],
Cell[CellGroupData[{
Cell[2333, 71, 120, 1, 27, "TemplatesSection",ExpressionUUID->"22ac84c7-30a2-4275-9abd-d5521ccdc841",
 CellID->1872225408],
Cell[2456, 74, 149, 2, 70, "Template",ExpressionUUID->"ca0797b1-8277-4091-8b37-b3592d7c8eb0",
 CellID->1562036412],
Cell[2608, 78, 137, 2, 70, "Template",ExpressionUUID->"76646f1e-473f-4db0-8441-f8b487f69f02",
 CellID->158391909],
Cell[2748, 82, 136, 2, 70, "Template",ExpressionUUID->"96e520c2-07c4-4d8d-85c6-0aa52f1128a1",
 CellID->1360575930],
Cell[2887, 86, 137, 2, 70, "Template",ExpressionUUID->"affc7e96-896c-4eb4-9e3c-b92cb8ad65b9",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3061, 93, 108, 1, 17, "DetailsSection",ExpressionUUID->"7578dcaa-c0de-4ca3-80b0-f03a73fab2c0",
 CellID->307771771],
Cell[3172, 96, 118, 2, 70, "Details",ExpressionUUID->"5da2d335-1eea-4348-a557-2770924ec21c",
 CellID->670882175],
Cell[3293, 100, 124, 2, 70, "Details",ExpressionUUID->"4d57d96f-d583-4736-84ab-4982cd89b9fa",
 CellID->350963985],
Cell[3420, 104, 119, 2, 70, "Details",ExpressionUUID->"f26f292c-07eb-4b9d-8088-5625e9a394a7",
 CellID->8391405],
Cell[3542, 108, 124, 2, 70, "Details",ExpressionUUID->"793cdd3d-3931-4532-9896-d0a2bbfe356c",
 CellID->3610269],
Cell[3669, 112, 116, 2, 70, "Details",ExpressionUUID->"b526eddd-c62b-4b99-869d-83a485ccc880",
 CellID->401364205],
Cell[3788, 116, 116, 2, 70, "Details",ExpressionUUID->"d1bff1e2-ed50-40b0-a3c3-17b282419c20",
 CellID->350204745],
Cell[3907, 120, 118, 2, 70, "Details",ExpressionUUID->"644770f1-6722-47f3-ba13-a250311dbf57",
 CellID->732958810],
Cell[4028, 124, 133, 2, 70, "Details",ExpressionUUID->"b4bb5b26-8d12-48d6-a5f0-abcfab532eb7",
 CellID->222905350],
Cell[4164, 128, 122, 2, 70, "Details",ExpressionUUID->"e26256e4-6bfb-472e-9993-e437718c0d67",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4323, 135, 104, 1, 62, "ObjectName",ExpressionUUID->"48da58cb-4b6a-43bf-90a1-ba666d358428",
 CellID->1224892054],
Cell[4430, 138, 1983, 51, 174, "Usage",ExpressionUUID->"71fce5a9-b2fd-4ead-b1fc-746ff1c7e172"],
Cell[6416, 191, 393, 9, 24, "Notes",ExpressionUUID->"0ef85a54-38b9-4392-8f6a-416b5655fa61",
 CellID->1067943069],
Cell[6812, 202, 433, 12, 25, "Notes",ExpressionUUID->"edfcd756-3696-45f9-a737-0e38a5f0221c",
 CellID->91263990],
Cell[7248, 216, 294, 7, 23, "Notes",ExpressionUUID->"85cd83ee-e8cf-4170-b9e8-679e161d2467",
 CellID->270847270],
Cell[7545, 225, 465, 9, 39, "Notes",ExpressionUUID->"343c69ea-a908-4601-8f4c-3f95fe226808",
 CellID->586636576],
Cell[8013, 236, 1399, 27, 68, "2ColumnTableMod",ExpressionUUID->"bf11c036-8211-4b3f-a5f9-6e1c615fd8f3",
 CellID->12018028],
Cell[9415, 265, 617, 19, 39, "Notes",ExpressionUUID->"f5b8168d-db48-473b-a027-6c6c3c6b111c",
 CellID->146349120],
Cell[10035, 286, 533, 10, 38, "Notes",ExpressionUUID->"79a2ce1d-e8fb-47e1-8985-0ed8019018f0",
 CellID->415388059],
Cell[10571, 298, 1389, 27, 68, "2ColumnTableMod",ExpressionUUID->"cb8d33db-66d7-4261-9d98-d624187c8f70",
 CellID->198401964],
Cell[11963, 327, 893, 16, 83, "Notes",ExpressionUUID->"bc2bf2d5-66b4-4420-a317-2f67aa2a537f",
 CellID->786590218]
}, Open  ]],
Cell[CellGroupData[{
Cell[12893, 348, 112, 1, 44, "TutorialsSection",ExpressionUUID->"e7b8d259-e872-4fda-8765-0d5719dc5123",
 CellID->250839057],
Cell[13008, 351, 382, 7, 16, "Tutorials",ExpressionUUID->"aedfca47-034e-4987-87a8-d0b213fd269f",
 CellID->341631938],
Cell[13393, 360, 341, 5, 16, "Tutorials",ExpressionUUID->"79b2ae27-0ccc-4fd4-b023-849fffb1e206",
 CellID->45360446],
Cell[13737, 367, 339, 5, 16, "Tutorials",ExpressionUUID->"8ef7a8d2-b1d7-416d-9c3a-e5cea897543d",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[14113, 377, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"9d512816-f122-4ea1-b42f-c7cc30542715",
 CellID->1268215905],
Cell[14254, 380, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"6515b906-311e-45eb-94dd-01aacbf7f704",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[14404, 386, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"d9bca5b2-0a70-4e65-87c6-4901ac1b982f",
 CellID->1584193535],
Cell[14527, 389, 992, 26, 18, "SeeAlso",ExpressionUUID->"9b9b515b-5750-4396-b4a5-66e4b47abb3d",
 CellID->194857521]
}, Open  ]],
Cell[CellGroupData[{
Cell[15556, 420, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"078a4fef-661e-44fe-bc19-50ba726ddf26",
 CellID->1255426704],
Cell[15669, 423, 98, 1, 16, "SeeAlso",ExpressionUUID->"d6d930e5-7b88-4de8-afe9-efc4b05a0233",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[15804, 429, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"0730fc80-d41d-4784-ac64-aba1944a40a1",
 CellID->38303248],
Cell[15919, 432, 101, 1, 16, "MoreAbout",ExpressionUUID->"58e97564-d39c-463e-ac36-b9e1b15bfb62",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[16057, 438, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"9e8b7f76-0b18-4560-ba97-53f33234c941",
 CellID->880084151],
Cell[CellGroupData[{
Cell[16493, 453, 323, 6, 22, "ExampleSubsection",ExpressionUUID->"ae2fcc2e-f081-4b00-b98f-f6c33771726c",
 CellID->190521901],
Cell[16819, 461, 206, 2, 20, "ExampleText",ExpressionUUID->"57e7f3f4-fe1d-43f7-a295-856709a2feb8",
 CellID->875200381],
Cell[17028, 465, 447, 10, 25, "Input",ExpressionUUID->"93460f2f-51d9-49fb-9c20-d2b4291c32cf",
 CellID->7206729],
Cell[17478, 477, 199, 2, 20, "ExampleText",ExpressionUUID->"b8adc202-2b07-46af-b8a5-0d2800902709",
 CellID->240582482],
Cell[CellGroupData[{
Cell[17702, 483, 286, 6, 25, "Input",ExpressionUUID->"7e2b41f6-ba43-45e4-8eb2-187293f85bbe",
 CellID->356889391],
Cell[17991, 491, 288, 5, 24, "Output",ExpressionUUID->"d4378fc1-ef38-43b8-9684-dc8c87479f4a",
 CellID->594596885]
}, Open  ]],
Cell[18294, 499, 545, 13, 23, "ExampleText",ExpressionUUID->"5c7cf85b-4ae2-40d7-b15c-d00caaaf6ace",
 CellID->415323612],
Cell[CellGroupData[{
Cell[18864, 516, 222, 4, 25, "Input",ExpressionUUID->"c0534411-803d-4681-b8c6-5174cf6a0de3",
 CellID->119809265],
Cell[19089, 522, 923, 22, 39, "Output",ExpressionUUID->"393f92a7-88ac-43dc-9daa-ef3b9437eaeb",
 CellID->50311312]
}, Open  ]],
Cell[20027, 547, 373, 8, 23, "ExampleText",ExpressionUUID->"af9dd0da-4165-4c20-9520-7e614b52369e",
 CellID->371129245],
Cell[CellGroupData[{
Cell[20425, 559, 233, 4, 25, "Input",ExpressionUUID->"4f36e7c6-fe1e-43ac-9ae8-e29eae70f7ee",
 CellID->459170406],
Cell[20661, 565, 902, 22, 39, "Output",ExpressionUUID->"c1d640bc-788d-47ac-8c6d-15855ed54f96",
 CellID->381626225]
}, Open  ]],
Cell[21578, 590, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"625689d2-6f73-40b8-b6dc-cbddf576379b",
 CellID->101784919]
}, Open  ]],
Cell[CellGroupData[{
Cell[21857, 600, 317, 6, 22, "ExampleSubsection",ExpressionUUID->"137b72d5-d002-48c8-85ed-70e78a790b6d",
 CellID->250906594],
Cell[22177, 608, 210, 2, 20, "ExampleText",ExpressionUUID->"c0605be0-7e6b-435a-8ab3-123117192fcc",
 CellID->250021553],
Cell[CellGroupData[{
Cell[22412, 614, 311, 8, 25, "Input",ExpressionUUID->"8bf8aab7-4ff5-4e9e-95f7-8766ffab1ecc",
 CellID->11237923],
Cell[22726, 624, 191, 3, 24, "Output",ExpressionUUID->"b8d6c0d2-9240-445a-a945-7e3a56081e88",
 CellID->57111371]
}, Open  ]],
Cell[22932, 630, 198, 2, 20, "ExampleText",ExpressionUUID->"135017a5-679b-4732-8239-249b2aa0878f",
 CellID->234835807],
Cell[23133, 634, 339, 9, 25, "Input",ExpressionUUID->"09810436-92d6-42af-a901-cae0c351502e",
 CellID->246732926],
Cell[23475, 645, 290, 7, 20, "ExampleText",ExpressionUUID->"618be219-e465-44d3-afd4-16e4fa882661",
 CellID->147036401],
Cell[CellGroupData[{
Cell[23790, 656, 227, 4, 25, "Input",ExpressionUUID->"a24dbc3c-bfc0-4458-a09e-7302c13acbe2",
 CellID->394172321],
Cell[24020, 662, 928, 22, 69, "Output",ExpressionUUID->"e29f7522-b55a-444a-bb05-204d2c6b9d63",
 CellID->465121764]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25009, 691, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"18e11e79-aefa-48a8-918a-3977340f2136",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[25167, 695, 242, 5, 31, "ExampleSection",ExpressionUUID->"ff2884a9-fc80-4180-99f1-6b744a423048",
 CellID->1293636265],
Cell[25412, 702, 265, 5, 19, "ExampleSection",ExpressionUUID->"c2652ce3-5caa-4596-91fe-a9ee65d4bbc6",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[25702, 711, 244, 5, 19, "ExampleSection",ExpressionUUID->"c0499f1b-571c-4fec-8c4f-5ec5e0d62c6e",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[25971, 720, 193, 2, 20, "ExampleSubsection",ExpressionUUID->"1197f68c-9324-4c1e-889c-2dab6716cf3d",
 CellID->1757724783],
Cell[26167, 724, 492, 10, 35, "ExampleText",ExpressionUUID->"f7818efe-e36e-4b06-9da0-7ad66f00b127",
 CellID->55537218],
Cell[CellGroupData[{
Cell[26684, 738, 268, 5, 25, "Input",ExpressionUUID->"3c1ce251-7b34-4252-b103-6b2b965e488c",
 CellID->260934071],
Cell[26955, 745, 442, 9, 53, "Output",ExpressionUUID->"f00e1112-242c-4157-9089-0ee4059776f0",
 CellID->687344947]
}, Open  ]],
Cell[27412, 757, 372, 6, 33, "ExampleText",ExpressionUUID->"412b7ed0-5547-493c-bee0-206bec54fef7",
 CellID->177352046]
}, Open  ]]
}, Open  ]],
Cell[27811, 767, 248, 5, 31, "ExampleSection",ExpressionUUID->"2ba2744d-4038-4d4a-9f30-82371431ef8e",
 CellID->258228157],
Cell[28062, 774, 259, 5, 19, "ExampleSection",ExpressionUUID->"b0ddbade-f8aa-4030-982d-8ade83701c6c",
 CellID->2123667759],
Cell[28324, 781, 252, 5, 19, "ExampleSection",ExpressionUUID->"1441314a-25a9-4268-8f06-aa99f378d07c",
 CellID->1305812373],
Cell[28579, 788, 257, 5, 19, "ExampleSection",ExpressionUUID->"6ee9fa8b-91ca-4f7b-bcf9-e5a2b149d242",
 CellID->1653164318],
Cell[28839, 795, 249, 5, 19, "ExampleSection",ExpressionUUID->"726b324c-0424-4d39-abae-abfd1b2a8a9f",
 CellID->589267740]
}, Open  ]]
}
]
*)

